С клавиатуры вводится текст из специальных символов. Текст заканчивается точкой. Определить, какой символ ; или _ встречается чаще.
var
d, p:integer;
c:char;
begin
d:=0; p:=0;
repeat
read (c);
if c=’;’ then d:=d+1;
if c=’_’ then p:=p+1;
until c=’.';
if d>p then writeln(‘; больше,чем _ ‘)
else if d=p then writeln(‘; = _ ‘)
else writeln(‘_ больше,чем ; ‘)
end.